home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Microsoft Works - The Rig…for All Your Daily Tasks
/
Microsoft Works - The Right Tools for All Your Daily Tasks.iso
/
beethovn
/
beetdemo.tbk
(
.txt
)
next >
Wrap
Asymetrix ToolBook File
|
1991-08-19
|
1MB
|
999 lines
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
Ear trumpets
:PHYSSIZE
:PHYSSIZE
Move3 2 minor
:PHYSSIZE
Dotty rhythms
Move1 1
Move4 3 outburst
Game1
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
doDemoNew
newplayList
365 cut low
1220 wipe low
1590 wipe low
1830 zoom high
2210 cut low
2485 cut low
3200 zoom med beet's wld
3580 wipe med score
3780 wipe med schiller
4180 wipe med drama
4350 wipe med brentano
4470 wipe med
4710 zoom med art of list
5065 wipe med
5280 wipe med
5480 wipe med
5700 wipe med horns
5933 wipe med
6180 wipe med
6430 zoom med close read
6680 wipe med
6930 wipe med
7160 wipe med gloss
7480 zoom high game
7785 wipe med
8030 wipe med
8280 wipe med
8820 zoom high
8980 wipe med
9170 wipe high glossary
9780 wipe med now
10706 wipe med
11384 zoom med
12180 zoom med
start
doDemoNew
buttonup
buttonup
doDemoNew
Play it again
buttonup
buttonup
Exit demo
Manuscript
Game grin
Pocket guide
PG hilite2
Defiance theme
Close reading
Game shades
Taj Mahal
PG hilite1
Ear trumpets
Game correct 2 grin
pocketBG
:PHYSSIZE
Pocket guide
schiller
pocketBG
Metternich
Repetition
Art of Listening
Architecture
Move3 2 minor
:PHYSSIZE
Sonata Demystified
Strings
Horns
:PHYSSIZE
Close reading
:PHYSSIZE
Move1 1
:PHYSSIZE
Move3 2 minor
:PHYSSIZE
:PHYSSIZE
Move4 3 outburst
:PHYSSIZE
Game1
Game question2
:PHYSSIZE
:PHYSSIZE
Game correct 2 grin
:PHYSSIZE
Brentano
:PHYSSIZE
Suicide
:PHYSSIZE
Ear trumpets
:PHYSSIZE
:PHYSSIZE
Manuscript
:PHYSSIZE
Art of Listening
:PHYSSIZE
Architecture
:PHYSSIZE
Repetition
:PHYSSIZE
Sonata Demystified
:PHYSSIZE
Strings
:PHYSSIZE
Horns
Dotty rhythms
:PHYSSIZE
`D|D|5
s Rmn
System
ethoven's Ninth Symphony
Multimedia Beethoven
nitBeetDemo
terBook
initBeetDemo
enterBook
leaveBook
enterBook
initBeetDemo
initBeetDemo
leaveBook
s Rmn
gD|D|
s Rmn
gD|D|
tmsf")
startShow
4svStartTime
4svStopTime
"01:00:00:10"
"01:02:35:15"
play
& "
stop
close
blocks x
x * 4500) + (
x * 75)+\
terBook
startShow
enterBook
leaveBook
blocks
enterBook
open cdaudio shareable alias CDB
set cdb time format tmsf
startShow
01:00:00:10
01:02:35:15
play CDB from
svStopTime
svStartTime
leaveBook
stop CDB
close CDB
blocks
:PHYSSIZE
PG hilite1
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
World
:PHYSSIZE
World
Suicide
Game question
Game over
PG hilite2
:PHYSSIZE
Intro
Intro
592%.
Metternich
:PHYSSIZE
LINKDLLS
INITGLOBAL
mci("
cdaudio shareable alias CDB")
tmsf")
-- JJJ Calculate fudgeFactor
4svFudgeFactor
mmtime()
1) / 40 --
FALSE
doDemoNew
AUTHOR
READER
4svlpmem
timeGetSystemTime(
4svStartTime
4svStopTime
4svPlayList
-- JJJ
ZfudgeLevel
ZlastLine
"02:00:02:40"
"02:02:35:15"
BID 2 --"
BID 4 --"quit"
"newPlayList"
ZlineNumber
0 --
sysSuspendMessages
play CDB
& "
status
mode") = "playing"
=(13)
down
=(27)
stop cdb")
BID 2 --"
BID 4 --"
--newversion
-- JJJ
action
= "high"
* 2)
= "med"
* 1.5)
posNext
) - (
posAfter
posNow
blocks(
--
Hey - we are behind!!!
= "wipe"
= "zoom"
BID 2 --"
BID 4 --"
4svHMem, svlpMem
svHmem
globalAlloc(66, 128)
globalLock(
FREEGLOBAL
PptrMem,
globalunlock(
globalfree(
[svhmem
[svptrmem
startShow
"01:00:00:10"
"01:02:35:15"
& "
close
x * 4500) + (
x * 75)+\
convertBlocks x
y4500
temp1
k4500
%"00"
%"00"
%"00"
"01:" & m & ":" & s & ":" & f
linkDLL kernel
WORD
, DWORD)
globalFree(
POINTER
.globalUnlock(
x"OK"
"Fatal Error:Can't
KERNEL.EXE --Exiting ToolBook"
X"MMSYSTEM.
mciSendString (STRING,
mciGetErrorString (
mciExecute(
x"OK"
"Cann't
DLL." \
&& "Please install multimedia extentions
4running Beethoven"
finput
Zvalue
e , 128,
, 128)
1(0,
1(0,
mciNotify hwnd, msg, wp
4svInverted,svButtonStack
-- values
--MCI_NOTIFY_SUCCESSFUL = 0x0001
--MCI_NOTIFY_SUPERSEDED = 0x0002
--MCI_NOTIFY_ABORTED = 0x0004
--MCI_NOTIFY_FAILURE = 0X0008
<> NULL
x"NADA"
pushbutton
1 --If Superseded
terBook
AUTHOR
INITGLOBAL
READER
FREEGLOBAL
keydown
startShow
leaveBook
doDemoNew
LINKDLLS
enterBook
mciNotify
mmtime
convertBlocks
blocks
enterBook
wjLINKDLLS
INITGLOBAL
open cdaudio shareable alias CDB
set cdb time format tmsf
mmtime
mmtime
sizetopage
doDemoNew
svFudgeFactor
keydown
AUTHOR
sizeToPage
READER
sizeToPage
mmtime
timeGetSystemTime
svlpmem
doDemoNew
02:00:02:40
02:02:35:15
newPlayList
play CDB from
status cdb mode
playing
stop cdb
status cdb position
blocks
posNow
posAfter
posNext
action
lineNumber
svFudgeFactor
lastLine
fudgeFactor
fudgeLevel
fudge
svPlayList
svStopTime
svStartTime
start
start
INITGLOBAL
svHmem
globalAlloc
svHmem
globalLock
svHMem
svlpMem
FREEGLOBAL
svHmem
globalunlock
svHmem
globalfree
svhmem
svptrmem
svHMem
svptrMem
svlpmem
startShow
01:00:00:10
01:02:35:15
play CDB from
svStopTime
svStartTime
leaveBook
stop CDB
close CDB
FREEGLOBAL
blocks
convertBlocks
temp1
LINKDLLS
globalAlloc
globalFree
globalLock
globalUnlock
Fatal Error:Can't open KERNEL.EXE --Exiting ToolBook
MMSYSTEM.DLL
mciSendString
mciGetErrorString
mciExecute
timeGetSystemTime
Cann't open MMSYSTEM.DLL.
Please install multimedia extentions before running Beethoven
kernel
mciSendString
mciGetErrorString
Error:
value
svlpmem
finput
mciNotify
0,100,0
0,0,0
svInverted
svButtonStack
0,100,0
0,0,0
svInverted
svButtonStack
Title
Game-lose this
Game question2
Schiller
:PHYSSIZE
Brentano
;0;0;
0;;00
;;0;;
wwpww
wpwpw
wwpww
wwpww
wpwpw
wpwpw
wpwpw
wxx w
xxwxx
wxxww
xwxwxw
xwxwxw
xwwxwwx
xwxxwx
wxwxwx
wwxwx
xwxxw
30xww
wxwxx
xwxww
xwxwx
xwwxwx
wwxxw
xwwxx
wxxww
wwxwxx
wxxww
wxxwwxx
xxwxxwxwxw
xwxwxw
wxxwxx
xxwwxx
xxwxwxwxww
xxwxx
xwxwx
xwxwx
xxwxx
xxwwxx
wxxwx
wxwxwx
xxwxx
30330
wxwxx
xwxxw
wwxwx
wwxww
xxwwx
xwwxw
wxxww
xwwxxw
xwxwx
wxwwx
wxwwx
wxwxwp
xwxxwwx
xxwxww
wwxww
wxwwx
xwxxp
wwxwx
xxwwxwxwxx
xwxww
wxwxw
wwxxw
wxwxwx
pwxwx
wxxwpx
wxwwxx
xwxxwwx
xpxwxw
330pp
330pp
330pp
ffc38
;0;0;
0;;00
;;0;;
$XOXOkf
LINKDLLS
INITGLOBAL
mci("
cdaudio shareable alias CDB")
tmsf")
-- JJJ Calculate fudgeFactor
4svFudgeFactor
mmtime()
1) / 40 --
FALSE
doDemoNew
AUTHOR
READER
4svlpmem
timeGetSystemTime(
4svStartTime
4svStopTime
4svPlayList
-- JJJ
ZfudgeLevel
ZlastLine
"02:00:02:40"
"02:02:35:15"
BID 2 --"
BID 4 --"quit"
"newPlayList"
ZlineNumber
0 --
sysSuspendMessages
play CDB
& "
status
mode") = "playing"
=(13)
down
=(27)
stop cdb")
BID 2 --"
BID 4 --"
--newversion
-- JJJ
action
= "high"
* 2)
= "med"
* 1)
posNext
) - (
posAfter
posNow
blocks(
--
Hey - we are behind!!!
= "wipe"
= "zoom"
BID 2 --"
BID 4 --"
4svHMem, svlpMem
svHmem
globalAlloc(66, 128)
globalLock(
FREEGLOBAL
PptrMem,
globalunlock(
globalfree(
[svhmem
[svptrmem
startShow
"01:00:00:10"
"01:02:35:15"
& "
close
x * 4500) + (
x * 75)+\
convertBlocks x
y4500
temp1
k4500
%"00"
%"00"
%"00"
"01:" & m & ":" & s & ":" & f
linkDLL kernel
WORD
, DWORD)
globalFree(
POINTER
.globalUnlock(
x"OK"
"Fatal Error:Can't
KERNEL.EXE --Exiting ToolBook"
X"MMSYSTEM.
mciSendString (STRING,
mciGetErrorString (
mciExecute(
x"OK"
"Cann't
DLL." \
&& "Please install multimedia extentions
4running Beethoven"
finput
Zvalue
c , 128,
, 128)
1(0,
1(0,
mciNotify hwnd, msg, wp
4svInverted,svButtonStack
-- values
--MCI_NOTIFY_SUCCESSFUL = 0x0001
--MCI_NOTIFY_SUPERSEDED = 0x0002
--MCI_NOTIFY_ABORTED = 0x0004
--MCI_NOTIFY_FAILURE = 0X0008
<> NULL
x"NADA"
pushbutton
1 --If Superseded
terBook
AUTHOR
INITGLOBAL
READER
FREEGLOBAL
keydown
startShow
leaveBook
doDemoNew
LINKDLLS
enterBook
mciNotify
mmtime
convertBlocks
blocks
enterBook
wjLINKDLLS
INITGLOBAL
open cdaudio shareable alias CDB
set cdb time format tmsf
mmtime
mmtime
sizetopage
doDemoNew
svFudgeFactor
keydown
AUTHOR
sizeToPage
READER
sizeToPage
mmtime
timeGetSystemTime
svlpmem
doDemoNew
02:00:02:40
02:02:35:15
newPlayList
play CDB from
status cdb mode
playing
stop cdb
status cdb position
blocks
posNow
posAfter
posNext
action
lineNumber
svFudgeFactor
lastLine
fudgeFactor
fudgeLevel
fudge
svPlayList
svStopTime
svStartTime
start
start
INITGLOBAL
svHmem
globalAlloc
svHmem
globalLock
svHMem
svlpMem
FREEGLOBAL
svHmem
globalunlock
svHmem
globalfree
svhmem
svptrmem
svHMem
svptrMem
svlpmem
startShow
01:00:00:10
01:02:35:15
play CDB from
svStopTime
svStartTime
leaveBook
stop CDB
close CDB
FREEGLOBAL
blocks
convertBlocks
temp1
LINKDLLS
globalAlloc
globalFree
globalLock
globalUnlock
Fatal Error:Can't open KERNEL.EXE --Exiting ToolBook
MMSYSTEM.DLL
mciSendString
mciGetErrorString
mciExecute
timeGetSystemTime
Cann't open MMSYSTEM.DLL.
Please install multimedia extentions before running Beethoven
kernel
mciSendString
mciGetErrorString
Error:
value
svlpmem
finput
mciNotify
0,100,0
0,0,0
svInverted
svButtonStack
mciNotify
0,100,0
0,0,0
svInverted
svButtonStack
aeeeLe
wwnwwRa
oawyt
nZZee
yRLRw
ooeny
[e[es
RFLaL[s
LINKDLLS
INITGLOBAL
mci("
cdaudio shareable alias CDB")
tmsf")
-- JJJ Calculate fudgeFactor
4svFudgeFactor
mmtime()
1) / 40
FALSE
doDemoNew
AUTHOR
READER
4svlpmem
timeGetSystemTime(
4svStartTime
4svStopTime
4svPlayList
-- JJJ
ZfudgeLevel
ZlastLine
"02:00:02:40"
"02:02:35:15"
BID 2 --"
BID 4 --"quit"
"newPlayList"
ZlineNumber
0 --
sysSuspendMessages
play CDB
& "
status
mode") = "playing"
=(13)
down
=(27)
stop cdb")
BID 2 --"
BID 4 --"
--newversion
-- JJJ
action
= "high"
* 2)
= "med"
* 1.5)
posNext
) - (
posAfter
posNow
blocks(
--
Hey - we are behind!!!
-- JJJ
= "wipe"
wipenext
cutnext
= "zoom"
zoomnext
BID 2 --"
BID 4 --"
zoomNext
wipeNext
cutNext
4svHMem, svlpMem
svHmem
globalAlloc(66, 128)
globalLock(
FREEGLOBAL
PptrMem,
globalunlock(
globalfree(
[svhmem
[svptrmem
startShow
"01:00:00:10"
"01:02:35:15"
& "
close
x * 4500) + (
x * 75)+\
convertBlocks x
y4500
temp1
k4500
%"00"
%"00"
%"00"
"01:" & m & ":" & s & ":" & f
linkDLL kernel
WORD
, DWORD)
globalFree(
POINTER
.globalUnlock(
x"OK"
"Fatal Error:Can't
KERNEL.EXE --Exiting ToolBook"
X"MMSYSTEM.
mciSendString (STRING,
mciGetErrorString (
mciExecute(
x"OK"
"Cann't
DLL." \
&& "Please install multimedia extentions
4running Beethoven"
finput
Zvalue
, 128,
, 128)
1(0,
1(0,
mciNotify hwnd, msg, wp
4svInverted,svButtonStack
-- values
--MCI_NOTIFY_SUCCESSFUL = 0x0001
--MCI_NOTIFY_SUPERSEDED = 0x0002
--MCI_NOTIFY_ABORTED = 0x0004
--MCI_NOTIFY_FAILURE = 0X0008
<> NULL
x"NADA"
pushbutton
1 --If Superseded
ipeNext
AUTHOR
cutNext
READER
keydown
INITGLOBAL
doDemoNew
FREEGLOBAL
enterBook
startShow
leaveBook
zoomNext
LINKDLLS
wipeNext
mciNotify
mmtime
convertBlocks
blocks
enterBook
wjLINKDLLS
INITGLOBAL
open cdaudio shareable alias CDB
set cdb time format tmsf
mmtime
mmtime
sizetopage
doDemoNew
svFudgeFactor
keydown
AUTHOR
sizeToPage
READER
sizeToPage
mmtime
timeGetSystemTime
svlpmem
doDemoNew
02:00:02:40
02:02:35:15
newPlayList
play CDB from
status cdb mode
playing
stop cdb
status cdb position
blocks
posNow
posAfter
posNext
action
lineNumber
svFudgeFactor
lastLine
fudgeFactor
fudgeLevel
fudge
svPlayList
svStopTime
svStartTime
zoomNext
wipeNext
cutNext
start
start
INITGLOBAL
svHmem
globalAlloc
svHmem
globalLock
svHMem
svlpMem
FREEGLOBAL
svHmem
globalunlock
svHmem
globalfree
svhmem
svptrmem
svHMem
svptrMem
svlpmem
startShow
01:00:00:10
01:02:35:15
play CDB from
svStopTime
svStartTime
leaveBook
stop CDB
close CDB
FREEGLOBAL
blocks
convertBlocks
temp1
LINKDLLS
globalAlloc
globalFree
globalLock
globalUnlock
Fatal Error:Can't open KERNEL.EXE --Exiting ToolBook
MMSYSTEM.DLL
mciSendString
mciGetErrorString
mciExecute
timeGetSystemTime
Cann't open MMSYSTEM.DLL.
Please install multimedia extentions before running Beethoven
kernel
mciSendString
mciGetErrorString
Error:
value
svlpmem
finput
mciNotify
0,100,0
0,0,0
svInverted
svButtonStack